Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/error_hn/rdblib/mainform.frm

Visual Basic Form | 1995-04-15 | 39.9 KB | 1,070 lines

VERSION 2.00
Begin Form MainForm
   BackColor       =   &H00C0C0C0&
   Caption         =   "RDBLIB Demo"
   ClientHeight    =   4830
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7605
   Height          =   5235
   Icon            =   MAINFORM.FRX:0000
   Left            =   1035
   LinkTopic       =   "Form2"
   ScaleHeight     =   4830
   ScaleWidth      =   7605
   Top             =   1140
   Width           =   7725
   Begin VideoSoftIndexTab VSIndexTab1
      BackSheets      =   0  'None
      Caption         =   "Error Processing|String Functions|Date Functions|Logging Functions"
      ConvInfo        =   MAINFORM.FRX:0302
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      FrontTabColor   =   &H00C0C0C0&
      Height          =   4815
      Left            =   0
      New3D           =   -1  'True
      Position        =   0  'Top
      Style           =   7  'Straight 3D
      TabIndex        =   30
      Top             =   0
      Width           =   7635
      Begin VideoSoftElastic VSElastic4
         CaptionPos      =   7  'Right Center
         ConvInfo        =   MAINFORM.FRX:030D
         ForeColor       =   &H00FF0000&
         Height          =   4470
         HelpContextID   =   20
         IntBkg          =   &H00C0C0C0&
         Left            =   10080
         TabIndex        =   45
         TagSplit        =   -1  'True
         TagWidth        =   2500
         Top             =   315
         Width           =   7575
         Begin SSPanel PnlHelp
            AutoSize        =   1  'AutoSize Panel Width To Caption
            BackColor       =   &H0000FFFF&
            BevelInner      =   1  'Inset
            BorderWidth     =   1
            Caption         =   "Help message goes here"
            Font3D          =   1  'Raised w/light shading
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   3
            Left            =   420
            TabIndex        =   47
            Top             =   1260
            Visible         =   0   'False
            Width           =   2190
         End
         Begin SSCommand BtnDispPerfLog
            Caption         =   "Display Performance Log"
            Font3D          =   0  'None
            Height          =   375
            Left            =   4920
            TabIndex        =   49
            Tag             =   "|Click to display a log of the performance data"
            Top             =   3060
            Width           =   2355
         End
         Begin SSCommand BtnEndTask
            Caption         =   "Log End Of Task"
            Font3D          =   0  'None
            Height          =   375
            Left            =   2520
            TabIndex        =   26
            Tag             =   "|Click to indicate the end of the task"
            Top             =   3060
            Width           =   2355
         End
         Begin SSCommand BtnStartTask
            Caption         =   "Log Start Of Task"
            Font3D          =   0  'None
            Height          =   375
            Left            =   120
            TabIndex        =   25
            Tag             =   "|Click to indicate start of task"
            Top             =   3060
            Width           =   2355
         End
         Begin VideoSoftElastic BtnHelp
            AccessKey       =   -1  'True
            BevelInner      =   0  'None
            BorderWidth     =   2
            Caption         =   "Help"
            CaptionPos      =   5  'Center Bottom
            ConvInfo        =   MAINFORM.FRX:0318
            CornerColor     =   &H00C0C0C0&
            Height          =   675
            Index           =   3
            IntBkg          =   &H00C0C0C0&
            Left            =   6780
            Picture         =   MAINFORM.FRX:0323
            PicturePos      =   3  'Center Top
            Style           =   3  'Command Button
            TabIndex        =   29
            Tag             =   "|Click to obtain help on using the logging functions"
            Top             =   60
            Width           =   735
         End
         Begin SSCommand BtnExit
            Caption         =   "Exit"
            Font3D          =   0  'None
            Height          =   375
            Index           =   3
            Left            =   3780
            TabIndex        =   28
            Tag             =   "|Press to terminate the program"
            Top             =   3600
            Width           =   2355
         End
         Begin TextBox TxtComments
            Height          =   1575
            Left            =   2820
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   24
            Tag             =   "Comments|Enter additional comments or description related to the function"
            Text            =   "Comments - additional information related to this function"
            Top             =   1200
            Width           =   4575
         End
         Begin TextBox TxtTask
            Height          =   375
            Left            =   2820
            TabIndex        =   23
            Tag             =   "Task|Enter Name of task/function being performed"
            Text            =   "Demo Logging"
            Top             =   720
            Width           =   3075
         End
         Begin TextBox TxtForm
            Height          =   375
            Left            =   2820
            TabIndex        =   22
            Tag             =   "Form Name|Enter name of form for performance log"
            Text            =   "MainForm"
            Top             =   240
            Width           =   1455
         End
         Begin VideoSoftElastic cMsg
            Align           =   2  'Bottom
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:0625
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   3
            IntBkg          =   &H00C0C0C0&
            Left            =   0
            TabIndex        =   46
            Top             =   4155
            Width           =   7575
         End
         Begin SSCommand BtnSetOpt
            Caption         =   "Set Logging Options"
            Font3D          =   0  'None
            Height          =   375
            Left            =   1380
            TabIndex        =   27
            Tag             =   "|Click to set logging options"
            Top             =   3600
            Width           =   2355
         End
      End
      Begin VideoSoftElastic VSElastic3
         CaptionPos      =   7  'Right Center
         ConvInfo        =   MAINFORM.FRX:0630
         ForeColor       =   &H00FF0000&
         Height          =   4470
         HelpContextID   =   6
         IntBkg          =   &H00C0C0C0&
         Left            =   10005
         TabIndex        =   39
         TagSplit        =   -1  'True
         TagWidth        =   2500
         Top             =   315
         Width           =   7575
         Begin SSPanel PnlHelp
            AutoSize        =   1  'AutoSize Panel Width To Caption
            BackColor       =   &H0000FFFF&
            BevelInner      =   1  'Inset
            BorderWidth     =   1
            Caption         =   "Help message goes here"
            Font3D          =   1  'Raised w/light shading
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   2
            Left            =   4380
            TabIndex        =   43
            Top             =   300
            Visible         =   0   'False
            Width           =   2190
         End
         Begin VideoSoftElastic BtnHelp
            AccessKey       =   -1  'True
            BevelInner      =   0  'None
            BorderWidth     =   2
            Caption         =   "Help"
            CaptionPos      =   5  'Center Bottom
            ConvInfo        =   MAINFORM.FRX:063B
            CornerColor     =   &H00C0C0C0&
            Height          =   675
            Index           =   2
            IntBkg          =   &H00C0C0C0&
            Left            =   6720
            Picture         =   MAINFORM.FRX:0646
            PicturePos      =   3  'Center Top
            Style           =   3  'Command Button
            TabIndex        =   21
            Tag             =   "|Click to obtain help on using the date validation function"
            Top             =   60
            Width           =   735
         End
         Begin SSCommand BtnExit
            Caption         =   "Exit"
            Font3D          =   0  'None
            Height          =   435
            Index           =   2
            Left            =   1200
            TabIndex        =   20
            Tag             =   "|Press to terminate the program"
            Top             =   780
            Width           =   1455
         End
         Begin VideoSoftElastic cMsg
            Align           =   2  'Bottom
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:0948
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   2
            IntBkg          =   &H00C0C0C0&
            Left            =   0
            TabIndex        =   35
            Top             =   4155
            Width           =   7575
         End
         Begin TextBox TxtDate
            BackColor       =   &H00FFFFFF&
            Height          =   375
            Left            =   2460
            TabIndex        =   19
            Tag             =   "Date To Be Validated|Enter the date to be validated"
            Text            =   "01/01/94"
            Top             =   180
            Width           =   1095
         End
      End
      Begin VideoSoftElastic VSElastic2
         CaptionPos      =   7  'Right Center
         ConvInfo        =   MAINFORM.FRX:0953
         ForeColor       =   &H00FF0000&
         Height          =   4470
         HelpContextID   =   8
         IntBkg          =   &H00C0C0C0&
         Left            =   9930
         TabIndex        =   34
         TagSplit        =   -1  'True
         TagWidth        =   2500
         Top             =   315
         Width           =   7575
         Begin SSPanel PnlHelp
            AutoSize        =   1  'AutoSize Panel Width To Caption
            BackColor       =   &H0000FFFF&
            BevelInner      =   1  'Inset
            BorderWidth     =   1
            Caption         =   "Help message goes here"
            Font3D          =   1  'Raised w/light shading
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   1
            Left            =   3960
            TabIndex        =   42
            Top             =   3720
            Visible         =   0   'False
            Width           =   2190
         End
         Begin VideoSoftElastic BtnHelp
            AccessKey       =   -1  'True
            BevelInner      =   0  'None
            BorderWidth     =   2
            Caption         =   "Help"
            CaptionPos      =   5  'Center Bottom
            ConvInfo        =   MAINFORM.FRX:095E
            CornerColor     =   &H00C0C0C0&
            Height          =   675
            Index           =   1
            IntBkg          =   &H00C0C0C0&
            Left            =   6780
            Picture         =   MAINFORM.FRX:0969
            PicturePos      =   3  'Center Top
            Style           =   3  'Command Button
            TabIndex        =   18
            Tag             =   "|Click to obtain help on using the string functions"
            Top             =   300
            Width           =   735
         End
         Begin SSCommand BtnExit
            Caption         =   "Exit"
            Font3D          =   0  'None
            Height          =   435
            Index           =   1
            Left            =   1860
            TabIndex        =   17
            Tag             =   "|Press to terminate the program"
            Top             =   3600
            Width           =   1455
         End
         Begin SSCommand BtnEject
            Caption         =   "Print Page"
            Font3D          =   0  'None
            Height          =   435
            Left            =   60
            TabIndex        =   16
            Tag             =   "|Press to print a page"
            Top             =   3600
            Width           =   1455
         End
         Begin VideoSoftElastic VSElastic5
            BackColor       =   &H00FF0000&
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            Caption         =   "RB_Text_Format"
            CaptionPos      =   4  'Center Center
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:0C6B
            ForeColor       =   &H00FFFFFF&
            Height          =   255
            Index           =   2
            IntBkg          =   &H00FF0000&
            Left            =   0
            TabIndex        =   36
            Top             =   2040
            Width           =   7575
         End
         Begin VideoSoftElastic VSElastic5
            BackColor       =   &H00FF0000&
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            Caption         =   "RB_RJustify"
            CaptionPos      =   4  'Center Center
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:0C76
            ForeColor       =   &H00FFFFFF&
            Height          =   255
            Index           =   1
            IntBkg          =   &H00FF0000&
            Left            =   0
            TabIndex        =   37
            Top             =   1020
            Width           =   7575
         End
         Begin VideoSoftElastic VSElastic5
            Align           =   1  'Top
            BackColor       =   &H00FF0000&
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            Caption         =   "RB_Center"
            CaptionPos      =   4  'Center Center
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:0C81
            ForeColor       =   &H00FFFFFF&
            Height          =   255
            Index           =   0
            IntBkg          =   &H00FF0000&
            Left            =   0
            TabIndex        =   38
            Top             =   0
            Width           =   7575
         End
         Begin VideoSoftElastic cMsg
            Align           =   2  'Bottom
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:0C8C
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   1
            IntBkg          =   &H00C0C0C0&
            Left            =   0
            TabIndex        =   41
            Top             =   4155
            Width           =   7575
         End
         Begin TextBox Txtformatstring
            BackColor       =   &H00FFFFFF&
            Height          =   795
            Left            =   3720
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   14
            Tag             =   "String To Format|Enter the string to be formatted"
            Text            =   "This String Will Be Formatted Into individual lines for printing.  This text should be long enough to create multiple lines on the printed output."
            Top             =   2760
            Width           =   3675
         End
         Begin SSCommand BtnFormat
            Caption         =   "Format String"
            Font3D          =   0  'None
            Height          =   555
            Left            =   60
            TabIndex        =   15
            Tag             =   "Press to print the text in the specified line size"
            Top             =   2640
            Width           =   1455
         End
         Begin TextBox Txtfmtline
            BackColor       =   &H00FFFFFF&
            Height          =   315
            Left            =   5940
            TabIndex        =   13
            Tag             =   "Print Starting On Line|Enter the beginning line for the text to print on"
            Text            =   "10"
            Top             =   2340
            Width           =   495
         End
         Begin TextBox Txtprintwidth
            BackColor       =   &H00FFFFFF&
            Height          =   315
            Left            =   3300
            TabIndex        =   12
            Tag             =   "Print Line Width|Enter the line width to use"
            Text            =   "65"
            Top             =   2340
            Width           =   495
         End
         Begin TextBox Txtctrstring
            BackColor       =   &H00FFFFFF&
            Height          =   315
            Left            =   3240
            TabIndex        =   4
            Tag             =   "String To Center|Enter the string to be centered"
            Text            =   "This String Will Be Centered"
            Top             =   300
            Width           =   3435
         End
         Begin SSCommand BtnCenter
            Caption         =   "Center String"
            Font3D          =   0  'None
            Height          =   615
            Left            =   60
            TabIndex        =   7
            Tag             =   "Press to center the string"
            Top             =   360
            Width           =   1455
         End
         Begin TextBox Txtctrline
            BackColor       =   &H00FFFFFF&
            Height          =   285
            Left            =   3240
            TabIndex        =   5
            Tag             =   "On Line|Enter the line number for the string to print on"
            Text            =   "10"
            Top             =   660
            Width           =   555
         End
         Begin SSCheck ChkNewLine
            Caption         =   "Start a New Line"
            Font3D          =   0  'None
            Height          =   255
            Left            =   3960
            TabIndex        =   6
            Tag             =   "|Check to start a new line after this string"
            Top             =   660
            Width           =   2715
         End
         Begin TextBox Txtrjnum
            BackColor       =   &H00FFFFFF&
            Height          =   285
            Left            =   3240
            TabIndex        =   8
            Tag             =   "Number To Format|Enter the number to be formatted"
            Text            =   "200"
            Top             =   1350
            Width           =   1455
         End
         Begin SSCommand Btnrightjustify
            Caption         =   "Right Jusitfy"
            Font3D          =   0  'None
            Height          =   555
            Left            =   60
            TabIndex        =   11
            Tag             =   "Press to format and right justify the number"
            Top             =   1380
            Width           =   1455
         End
         Begin TextBox Txtrjformat
            BackColor       =   &H00FFFFFF&
            Height          =   315
            Left            =   3240
            TabIndex        =   9
            Tag             =   "Format To Use|Enter the format string to use for formatting the number"
            Text            =   "###,##0.00"
            Top             =   1680
            Width           =   1455
         End
         Begin TextBox Txtrjcol
            BackColor       =   &H00FFFFFF&
            Height          =   315
            Left            =   5940
            TabIndex        =   10
            Tag             =   "At Column|Enter the rightmost column to align on"
            Text            =   "40"
            Top             =   1680
            Width           =   435
         End
      End
      Begin VideoSoftElastic VSElastic1
         CaptionPos      =   7  'Right Center
         ConvInfo        =   MAINFORM.FRX:0C97
         ForeColor       =   &H00FF0000&
         Height          =   4470
         HelpContextID   =   9
         IntBkg          =   &H00C0C0C0&
         Left            =   30
         TabIndex        =   31
         TagSplit        =   -1  'True
         TagWidth        =   2900
         Top             =   315
         Width           =   7575
         Begin SSPanel PnlHelp
            AutoSize        =   1  'AutoSize Panel Width To Caption
            BackColor       =   &H0000FFFF&
            BevelInner      =   1  'Inset
            BorderWidth     =   1
            Caption         =   "Help message goes here"
            Font3D          =   1  'Raised w/light shading
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   0
            Left            =   3540
            TabIndex        =   32
            Top             =   480
            Visible         =   0   'False
            Width           =   2190
         End
         Begin SSCommand BtnDispErrLog
            Caption         =   "Display Error Log"
            Font3D          =   0  'None
            Height          =   375
            Left            =   2700
            TabIndex        =   48
            Tag             =   "|Press to display error log records"
            Top             =   1080
            Width           =   1695
         End
         Begin VideoSoftElastic BtnAbout
            AccessKey       =   -1  'True
            BevelInner      =   0  'None
            BorderWidth     =   2
            Caption         =   "About"
            CaptionPos      =   5  'Center Bottom
            ConvInfo        =   MAINFORM.FRX:0CA2
            CornerColor     =   &H00C0C0C0&
            Height          =   675
            IntBkg          =   &H00C0C0C0&
            Left            =   6060
            Picture         =   MAINFORM.FRX:0CAD
            PicturePos      =   3  'Center Top
            Style           =   3  'Command Button
            TabIndex        =   44
            Tag             =   "|Click to display information about this program"
            Top             =   420
            Width           =   735
         End
         Begin CommonDialog CMDialog1
            HelpFile        =   "rdblib.hlp"
            Left            =   6840
            Top             =   3420
         End
         Begin VideoSoftElastic BtnHelp
            AccessKey       =   -1  'True
            BevelInner      =   0  'None
            BorderWidth     =   2
            Caption         =   "Help"
            CaptionPos      =   5  'Center Bottom
            ConvInfo        =   MAINFORM.FRX:0FAF
            CornerColor     =   &H00C0C0C0&
            Height          =   675
            Index           =   0
            IntBkg          =   &H00C0C0C0&
            Left            =   6780
            Picture         =   MAINFORM.FRX:0FBA
            PicturePos      =   3  'Center Top
            Style           =   3  'Command Button
            TabIndex        =   3
            Tag             =   "|Click to obtain help on using the error handler"
            Top             =   420
            Width           =   735
         End
         Begin SSCommand BtnExit
            Caption         =   "Exit"
            Font3D          =   0  'None
            Height          =   375
            Index           =   0
            Left            =   1980
            TabIndex        =   2
            Tag             =   "|Press to terminate the program"
            Top             =   1620
            Width           =   1695
         End
         Begin VideoSoftElastic cMsg
            Align           =   2  'Bottom
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:12BC
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            ForeColor       =   &H00FF0000&
            Height          =   315
            Index           =   0
            IntBkg          =   &H00C0C0C0&
            Left            =   0
            TabIndex        =   40
            Top             =   4155
            Width           =   7575
         End
         Begin VideoSoftElastic VSElastic5
            Align           =   1  'Top
            BackColor       =   &H00FF0000&
            BevelInner      =   0  'None
            BevelOuter      =   1  'Raised
            BevelOuterDir   =   1  'Horizontal
            BevelOuterWidth =   1
            BorderWidth     =   2
            Caption         =   "RB_ErrorHandler"
            CaptionPos      =   4  'Center Center
            ChildSpacing    =   1
            ConvInfo        =   MAINFORM.FRX:12C7
            FontBold        =   -1  'True
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   12
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            ForeColor       =   &H00FFFFFF&
            Height          =   375
            Index           =   3
            IntBkg          =   &H00FF0000&
            Left            =   0
            TabIndex        =   33
            Top             =   0
            Width           =   7575
         End
         Begin SSCommand BtnGenError
            Caption         =   "Generate Error"
            Font3D          =   0  'None
            Height          =   375
            Left            =   900
            TabIndex        =   1
            Tag             =   "|Press to generate indicated error and demo error handling routine"
            Top             =   1080
            Width           =   1695
         End
         Begin TextBox TxtErrorNum
            BackColor       =   &H00FFFFFF&
            Height          =   375
            Left            =   2520
            TabIndex        =   0
            Tag             =   "Error Number To Generate|Enter the error number to be generated"
            Text            =   "10"
            Top             =   540
            Width           =   555
         End
      End
   End
Option Explicit
Sub BtnAbout_Click ()
    ShowHelp BtnAbout, 0, 0
    LogoForm.Show MODAL
End Sub
Sub BtnAbout_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnAbout, X, Y
End Sub
Sub BtnCenter_Click ()
    Dim newline As Integer, nline As Integer
    Dim cstring As String
    ShowHelp BtnCenter, 0, 0
    cstring = TxtCtrString.Text
    nline = Val(TxtCtrLine.Text)
    newline = ChkNewLine.Value
    RB_Center cstring, nline, newline
End Sub
Sub BtnCenter_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnCenter.Tag))
End Sub
Sub BtnCenter_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnCenter_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnCenter, X, Y
End Sub
Sub BtnDispErrLog_Click ()
    ShowHelp BtnDispErrLog, 0, 0
    ErrLog.Show MODELESS
End Sub
Sub BtnDispErrLog_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnDispErrLog.Tag))
End Sub
Sub BtnDispErrLog_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnDispErrLog_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnDispErrLog, X, Y
End Sub
Sub BtnDispPerfLog_Click ()
    ShowHelp BtnDispPerfLog, 0, 0
    PerfLog.Show MODELESS
End Sub
Sub BtnDispPerfLog_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnDispPerfLog.Tag))
End Sub
Sub BtnDispPerfLog_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnDispPerfLog_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnDispPerfLog, X, Y
End Sub
Sub BtnEject_Click ()
    ShowHelp BtnEject, 0, 0
    Printer.NewPage
    Printer.EndDoc
End Sub
Sub BtnEject_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnEject.Tag))
End Sub
Sub BtnEject_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnEject_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnEject, X, Y
End Sub
Sub BtnEndTask_Click ()
    ShowHelp BtnEndTask, 0, 0
    RB_LogTask (TxtTask.Text), (TxtForm.Text), RB_ENDTASK, (TxtComments.Text)
End Sub
Sub BtnEndTask_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnEndTask.Tag))
End Sub
Sub BtnEndTask_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnEndTask_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnEndTask, X, Y
End Sub
Sub BtnExit_Click (Index As Integer)
    Unload MainForm
End Sub
Sub BtnExit_GotFocus (Index As Integer)
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnExit(0).Tag))
End Sub
Sub BtnExit_LostFocus (Index As Integer)
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnExit_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnExit(Index), X, Y
End Sub
Sub BtnFormat_Click ()
    Dim fstring As String, stringtoprint As String
    ShowHelp BtnFormat, 0, 0
    fstring = TxtFormatString.Text
    stringtoprint = RB_Text_Format(fstring, Val(TxtPrintWidth.Text))
    Printer.CurrentY = Val(TxtFmtLine.Text)
    Printer.CurrentX = 0
    Printer.Print stringtoprint
End Sub
Sub BtnFormat_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnFormat.Tag))
End Sub
Sub BtnFormat_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnFormat_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnFormat, X, Y
End Sub
Sub BtnGenError_Click ()
    Dim erraction As Integer
    On Error GoTo commanderror
    ShowHelp BtnGenError, 0, 0
10    Error TxtErrorNum.Text
    MsgBox "Error ignored", MB_ICONINFORMATION, "RB_ErrorHandler Test"
    Exit Sub
commanderror:
    ' Example of call to RB_ErrorHandler routine
    erraction = RB_ErrorHandler("MainForm", "BtnGenError_Click")
    Select Case erraction
    Case 1
        Resume 0
    Case 2
        Resume Next
    End Select
    Stop
End Sub
Sub BtnGenError_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnGenError.Tag))
End Sub
Sub BtnGenError_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnGenError_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnGenError, X, Y
End Sub
Sub BtnHelp_Click (Index As Integer)
    SendKeys "{F1}"
End Sub
Sub BtnHelp_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnHelp(Index), X, Y
End Sub
Sub Btnrightjustify_Click ()
    Dim rjformat As String
    Dim rjnum As Double, pcol As Integer
    ShowHelp Btnrightjustify, 0, 0
    rjformat = TxtRJFormat.Text
    rjnum = Val(TxtRJCol)
    Printer.Print
    pcol = RB_Rjustify(Val(Txtrjnum.Text), rjformat, rjnum)
    Printer.Print
End Sub
Sub Btnrightjustify_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = Btnrightjustify.Tag
End Sub
Sub Btnrightjustify_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub Btnrightjustify_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp Btnrightjustify, X, Y
End Sub
Sub BtnSetOpt_Click ()
    RB_SetLogOptions
End Sub
Sub BtnSetOpt_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnSetOpt.Tag))
End Sub
Sub BtnSetOpt_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnSetOpt_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnSetOpt, X, Y
End Sub
Sub BtnStartTask_Click ()
    ShowHelp BtnStartTask, 0, 0
    RB_LogTask (TxtTask.Text), (TxtForm.Text), RB_STARTTASK, (TxtComments.Text)
End Sub
Sub BtnStartTask_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((BtnStartTask.Tag))
End Sub
Sub BtnStartTask_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub BtnStartTask_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowHelp BtnStartTask, X, Y
End Sub
Sub ChkNewLine_GotFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((ChkNewLine.Tag))
End Sub
Sub ChkNewLine_LostFocus ()
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub FldGotFocus (PControl As Control)
    PControl.BackColor = BLUE
    PControl.ForeColor = WHITE
    PControl.SelStart = 0
    PControl.SelLength = 1000
    cmsg(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((PControl.Tag))
End Sub
Sub FldLostFocus (PControl As Control)
    PControl.BackColor = WHITE
    PControl.ForeColor = BLACK
    cmsg(VSIndexTab1.CurrTab).Caption = ""
End Sub
Sub Form_Load ()
    rb_systemname = "RDBLIB Demo"
    rb_version = "1.3"
    Printer.ScaleMode = 4
    Printer.ScaleLeft = -10
    RB_OpenLog
End Sub
Sub Form_Unload (Cancel As Integer)
    RB_CloseLog
End Sub
Sub ShowHelp (PBtn As Control, px As Single, py As Single)
' Subroutine to show popup help for a control
' To use:
'    add a panel control called PnlHelp to the form
'    Set control's tag property to help message desired
'    Copy this subroutine to the form code and uncomment code below
'    In mousemove event of control add
'       ShowHelp control-name, x, y
'    In click event or other events of control that cause action add
'       ShowHelp control-name, 0, 0     ' Hides help
    Dim maxx As Single, maxy As Single
    Dim nPnlTop As Single, nPnlLeft As Single
    ' Determine max x & y coordinates with 80 twip border
    ' boundry of 80 twips allowed to be able to catch cursor as exiting control
    maxx = PBtn.Width - 80
    maxy = PBtn.Height - 80
    ' if exiting control area turn off help panel
    If px < 80 Or py < 80 Or px > maxx Or py > maxy Then
        PnlHelp(VSIndexTab1.CurrTab).Visible = False
        PnlHelp(VSIndexTab1.CurrTab).Caption = ""
        Exit Sub
    End If
    ' Determine location for help panel
    ' Assume below and to right
    nPnlTop = PBtn.Top + PBtn.Height + 40
    nPnlLeft = PBtn.Left + 100
    ' Put panel above control if not enough room below
    If nPnlTop + PnlHelp(VSIndexTab1.CurrTab).Height > Height - 1024 Then
        nPnlTop = PBtn.Top - PnlHelp(VSIndexTab1.CurrTab).Height - 40
    End If
    ' Put panel to left if not enough room to right
    If nPnlLeft + PnlHelp(VSIndexTab1.CurrTab).Width > Width - 500 Then
        nPnlLeft = Width - PnlHelp(VSIndexTab1.CurrTab).Width - 240
    End If
    ' if same settings exit to prevent flickering effect
    If PnlHelp(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((PBtn.Tag)) And PnlHelp(VSIndexTab1.CurrTab).Top = nPnlTop And PnlHelp(VSIndexTab1.CurrTab).Left = nPnlLeft Then
        Exit Sub
    End If
    ' get help msg from control's tag and position help panel
    PnlHelp(VSIndexTab1.CurrTab).Caption = RB_StatusMsg((PBtn.Tag))
    PnlHelp(VSIndexTab1.CurrTab).Top = nPnlTop
    PnlHelp(VSIndexTab1.CurrTab).Left = nPnlLeft
    PnlHelp(VSIndexTab1.CurrTab).Visible = True
End Sub
Sub TxtComments_GotFocus ()
    FldGotFocus TxtComments
End Sub
Sub TxtComments_LostFocus ()
    FldLostFocus TxtComments
End Sub
Sub Txtctrline_GotFocus ()
    FldGotFocus TxtCtrLine
End Sub
Sub Txtctrline_LostFocus ()
    FldLostFocus TxtCtrLine
End Sub
Sub Txtctrstring_GotFocus ()
    FldGotFocus TxtCtrString
End Sub
Sub Txtctrstring_LostFocus ()
    FldLostFocus TxtCtrString
End Sub
Sub TxtDate_GotFocus ()
    FldGotFocus TxtDate
End Sub
Sub TxtDate_LostFocus ()
    If Not RB_Validate_Date(TxtDate) Then
        TxtDate.SetFocus
        Exit Sub
    End If
    FldLostFocus TxtDate
End Sub
Sub TxtErrorNum_GotFocus ()
    FldGotFocus TxtErrorNum
End Sub
Sub TxtErrorNum_LostFocus ()
    FldLostFocus TxtErrorNum
End Sub
Sub Txtfmtline_GotFocus ()
    FldGotFocus TxtFmtLine
End Sub
Sub Txtfmtline_LostFocus ()
    FldLostFocus TxtFmtLine
End Sub
Sub TxtForm_GotFocus ()
    FldGotFocus TxtForm
End Sub
Sub TxtForm_LostFocus ()
    FldLostFocus TxtForm
End Sub
Sub Txtformatstring_GotFocus ()
    FldGotFocus TxtFormatString
End Sub
Sub Txtformatstring_LostFocus ()
    FldLostFocus TxtFormatString
End Sub
Sub Txtprintwidth_GotFocus ()
    FldGotFocus TxtPrintWidth
End Sub
Sub Txtprintwidth_LostFocus ()
    FldLostFocus TxtPrintWidth
End Sub
Sub Txtrjcol_GotFocus ()
    FldGotFocus TxtRJCol
End Sub
Sub Txtrjcol_LostFocus ()
    FldLostFocus TxtRJCol
End Sub
Sub Txtrjformat_GotFocus ()
    FldGotFocus TxtRJFormat
End Sub
Sub Txtrjformat_LostFocus ()
    FldLostFocus TxtRJFormat
End Sub
Sub Txtrjnum_GotFocus ()
    FldGotFocus Txtrjnum
End Sub
Sub Txtrjnum_LostFocus ()
    FldLostFocus Txtrjnum
End Sub
Sub TxtTask_GotFocus ()
    FldGotFocus TxtTask
End Sub
Sub TxtTask_LostFocus ()
    FldLostFocus TxtTask
End Sub